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-tREND STATISTIPAL PACKAGE- H 

STATISTICAL PRQGRAHS 

FOR THE APPLE BY ' * • 

• . ■• CARL F, BERGER 
• IWIVERSITY'OF HICHIGAN,.. 



DlSi yOLUHE 254 



tA .012 ANOVAKP , i 

tE'OU AS CHR GEH 

tE Od6 CHARACTER TABLE ' 

ti 014 COUNT , • . #• 

tA 009 EDIT ' • 

»A 013 EXPOREGRESS 

»A 016 FNXGRAPH/.PADDLES ■ - 

.<A 012 GRAPtI RESULTS- * 

»A 002 HELLO 

003 HI-RES CHATtACTER GENERATOR 
»A Oil HLO- 
tE 002 LOHEMr . 
tA 012 HLRKP 

tfy 018 HLRTUOWAYKP • . • 

tA 015 NTH-EQR - . ' 

»A Ol6 KTH-CORKP. ' - 

»T 002 THLO 

»A 004 TITLE . • 

»A 019 TRENDKP ' • ' »^ . 

»A 014 TWOWAYKP 

, A 002 d'aTA -a 

A 013 EXPOREGRESSKP 
tR 019 APA - • . 

»A. 003 LOADAPA . , 

JB 003 RBOOT 
»B 005 RLOAH 



Looking for relationships is a natural rale of science 

education^ More and -more it has became important not only 

to test for differences in groups 'buj: also to analyze data 

.for trends. ^ Finding relationships in data'^sets gives more' 

information- than traditional te'^ts of mean -differences - 

• *^ . ^ • • ^' , . 

or .traditional ANOV^ tests' or 'even. iMANOVA tests./ The use°' 

of techniques such as -Multiple Linear Regression, Higher 

Order Correlation;, and Expon^ential 4legrdssion/c^n often 

.indicate reIa'tion?hips too easily oyerlxDoked in traditional 

research. i ' ' - . 

•Trend "analysis has not been used widely, partly because /, 
of the heed foV extra information added to existing data . || 
in order to search for trends. Further," the' reliance- on I', 
numerical values rather than graphs to indi^cate trend has - §1 
not"^ provided the necessary qpmfort needed to explore data. J 

The microcomputer has capabili-^ies wift.ch overcome theie 
drawbacks. J^irst, the graphics.^mode of °the television scfcen 
Offers greater possibilities in looking for trends. 'Secdnd,. 
the ability to easily" adapt data 'sets^ encourages the search 
for trends. Third, the\icrocoiaputer qan be uled to cofiip^re 
several kinds of analyses jn order to -get a real f eel fo'r ' 
the structure and implications inhefen't in/.fhe data.-. / ' ' 

In this session, the microcomputer ^will b3 -used to:- 



1. * Compare alternate ..strategies of data analysis, 
.2. Graphically shov,Tesult§ of . tests^ f or Irerid. - 



3.'^ Indicate the powerful application; of. such machines 

for reasonable ^ize data sets, 
Malysis of data sets will be examined using a. compari- 
son of;. ' ■ ' ' • 

. analysis of variance with Multiple Linear Regression; 

• * the. use of ExponentjLa^l Regression'. and Higher Order 
' Re-gression; . ^ * 

the 'use of orthogonal tests of trend; and 

tfie^s^e'of dummy variables'to handle categorical^ 
• variables ' . ^ 

Throughout^ the session the use of ' exploratory analysis 
techniques will be emphasized. The limitations as well • 

d 

as the benefatsipf the use of microcomputers will be high- 
lighted. ^ ^ ' ^ 

.Sample programs are available in the appendix; print- 
outs of t.v. screen dataware included. The examples used, 
are from Kerling^r and -Pedhaztir , with specific page references 
included* ' ' ' \ 
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\ The first analysis is' a traditional -ANOVA on a set ' 

of d^a. from page 106 in Kerlinger and Pedhazur. The anaiVsis 

IS straxahtforward but illustrates an important data entry 

proce^dure\m t}\e ^microcomputeT ♦ Data should- be included 

\ ' . • 

within, pxogjpains as program steps. The entry of data as ' * 

input on demand\£rom the .program m.eans that any errors, 

or modifications require the entry of the entire set from 

start to finish. IfNiata is included, as part of data 

statements with the program^ modifications can easily "be 

made, errors corrected, ^ aik more data ^added with little 

difficulty. ^ - \ , ' * 

So. as shown in the following example, the data is for 

\ ' * * ' ' 

three groups and is listed \rithin\the program as'lines 

500-999. (The shadowed lines' are responses to computer 
. prompts.) Note'that -the data for threV groups \s indicated 
by- line 500 data 3. The data follows on\ines 501, 502 , 
5d3. 

3 * * • 

To, modify dat;a, merely retype a line suclK as 502 
data 7, 8,^9, 10, 10,' 999. Any sjib sequent^ run Avhu Id re- • 

fleet this modif ideation. To save modified data, tVpe -SAVE 

' • - ^ ■ ■ ■ . ■ \ 

(or CSAVE), a-nd the name of phe program ' (in quotes .or not 

dffpei^ding on the brand microcomputer you, are using) 

Some^ comments on th^ ^analysis.^ "In addition to the 

standafd^ F value,'- the values' of FJA square,* 'Omega ^siquare 

^nd the probability level ar? included.* 



w 

3RUN 



♦ ♦♦♦♦♦♦ 



♦ ♦ ♦ ♦ ♦ i ♦»•> 



ANALYSIS QF^ MAf:2Af!CE 



STATISTICAL' PROG 



FOR THE APPLE BY 



CARL F» BERGER 
UNIVERSITY OF MICHIGAN 



*************** *.**,,y,tti\iiXH%*t 




PRESS <RETURN> TO START 
ANALYSIS OF VARIANCE 

THIS PROGRAM CALCULATES THE P VALUE'" 
USED TO FIND IF THERE IS' A DIFFERENCE ' 
IN TWE MEANS OF GROUPS OF DATA, ' 
NEED INSTRUCTIONS? » 
?YES ... 

TYPE IN YOUR HATA STARTING DN LINE'500» 

501 DATA 'AlfA2fA3f »» »999 • • 

502 DATA .Bl.f-B3^B3f »». 999 ^TC, WHERE K 
ATAPOINTS 

ENTER ONLY "40 NUMBERS PER LINE AND LIST K AS THE FIR^ 
999 STOPS THE DATA SET 'FOR EACH GROUP. 
' HERE'S AN. rXAMPllE 



TYPE- 
IS THE NUMl 



R OF GROUPS AND A, B.» . ARE 
NUMBER ONLY 



500 
501 
502 
503 



DATA 
DATA 
DATA 



4f5f6>7f8f999 
7f8f9f lOf Hf9.99 



DATA 1 f 2f3f4f5f999 



PRESS <RETURK> 
N MEAN 
5 6 
5 ' 9 

5 ' 3' 



TO. STARTTHE NUMBER OF GROUPS IS 
STANDARD 'DEV ' 
'1»58113883 
1»59113882 ■ 
■ 1 »58 113883 




UNIVARIATE 1-UAY ANOVA 



SOURCE SUM OF SQ» 
BETWEEN ' 90 » 000000 i 



- WITHIN 



TOTAL 



29 » 9999998 



D»F» . MEAN SQ» 
2 45 » 0000001 



12 2 » 49999998 



120 



14 



THE F= VALUE IS i8» 0000002 
WITH 2 AND 12 DEGREES OF FREEDOM 
ETA SQUARE= ^750000001 
OMEGA SQUARE= » 693877553 
PROBABILITY LEVEL IS 4E-04 



ERIC 



6- 



The subroutines to calculate significance levels and 
some other subroutines are from Some Basic Statistical 
•Programs.^ ^ • 

< To introduce an alternate form of analysis' that encourages 
a test for trend, the same data was analyzed using Multiple 
Linear Regression CMLR)>^ith the following Results. 

• Note similar F'values, an R equivalent to ETA and 

♦ 

a standard error of th^ estimate equivalent to the standard 
deviations of each value Csort of an average standard devia- 
tioni^. . ' . i 

The means of the data sets are produced by the use of 
the prediction equation * 

y = 6CX1) + 3(X2) + 6 . ^ - ^ ^ 

^ Xj^ and X2 are dummy^ariables to account for 

the groups. . K ^ ' ' 

* ; Two dummy variables are needed for three groups: a 
code of 1 and 0 for Group 1, 0-and 1 for Group "2, and 0 
and 0 for Group 3. fully cover the relationships. 

/ The- use of MLR is preferred by many researchers be- 

•cause'of the calculation , of the standard error of estimate 

-. . - - * 

and the relaxation of p.rob,lems due to unequal N's, 
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-LINEAR REGRESSION ANALYSIS- 
STATISTICAL PROGRAMS 

FOR THE APPLE BY 

CARL F» BERCER 
• UNIVERSITY OF MICHIGAN 



PRESS <RETURN> TO START 



MULTIPLE LINEAR REGRESSION 

NEED INSTRUCTIONSTYES 

TYPE IN DATA AT LINE 900 » 

DATAf NUMBER OF INDEPENDENT ^ARf SAMPLE SIZE» 

EACH INDEPENDENT VARIABLE AND EACH DEPENDENT VARIABLE^ 

HERE IS LINE 900 AS A SAMPLE 

900 DATA !2il5»l»0» + »'lfO»5»l,0f6» 
If0f7flf0»8»0»l»7f0»l»8»0»l» 
9f0rlrl0r0rlrll:f0f0rlf0r0f2r 
O»0f3f0i0»4»0fO»5 

PRESS <RETURN> TO STARTSAMPLE SIZE IS 15 
NUMBER. OF INDEPENDENT VARIABLES ARE 2 
'10 4 
10 5 
1 0 6 
1 0 7 

0 1 7 

0 1. 8 

0 1 9 

,.0. 1 10 



0 
0 

0 

■-0 
0 



-.0' 0 



11 
1 

t 

3 
4 

5 



EQUATION coefficients: 

constant; 3 

\ VARIABiE(l): 3 
1 VARIABLE(2): 6 



,7 



■ coefficient of DETERHINATI0N(R-SQR)=..75 
" coefficient of multiple CORREL/iTION =.866025404 
J STANDARD- ERROR OF ESTIJJAT^ . U581 13883 



F VALUE = 18,0000001 • / 
WITH 2 AND 12 DEGREES Of 



FREEDOM . 



interpolation: (enter 9^9? TO END PROGRAM) 
MARIABLEITI 
0ARIftBLE2?O 

DEPENDENT. VARIABLE =6»00000001 

VAR1ABLE1?0 
VAftlABLE2?l 
DEPENDENT VARIABLE =9 



VARIABLEITO ' 
VARIABLfe2?0 
"DEPENDENT VARIABLE =3 

VAF;lABlt!t999^ 



\ 



Two way analysis of -variance is another procedure 
that can be analyzed on the jnicrodkomputer . " ' . t 

. Her-e the data are taken from page 156 of Ker linger 
and Pedhazur* ' - ^ ^ ^ 

" ' • ' TEACHING >IBTHODS 



Biology 
Ch emistry 
Physics ' 



Ausabel 


. Piaget 


- Skinner 


16 • 


20 


10 


. 14 


16 




12 


17 


. 7 


10 


13 


7 


7" 


10' 


■6 


7 ■■• 


8 





A traditional two way analysis often looks like this 



■10- 



PR*0 

3RUN 



♦ ♦♦♦♦♦♦♦♦♦♦♦ 

♦ ♦♦♦♦♦♦♦♦♦♦♦ 



i -TWO WAY ANALYSIS OF VARK^NCE- 
: STATISTICAL PROGRAMS ' 

♦ 

: • FOR THE APPLE BY 

: C^^RL F. BERGER - 

: UNIVEF^SITY OF MICHIGAN 

♦ > 

♦ <f 

♦♦♦♦♦♦ * ^ * 

♦♦♦♦♦♦♦♦♦♦■•♦^♦♦♦♦♦♦♦♦♦♦♦♦t ♦♦♦♦♦♦♦♦ 

♦♦♦♦♦♦♦♦ 

PRESS <RETURN> TO CONTINUE 

' ' •' . 

WAY. ANALYSIS OF VARIANCE 
Ne^D * INSTRUCTIONS? 
?YE 

INSE:RT data ON- IflNE 1080 AS 1080 ih^TA C,R,X11 » . . . ,999,X12f . . . ,999 WHERE C IS TH 
NUMBEX of COLUMNS AND R IS THE NUMBER OF ROWS 

108O DA^A 3f3 

1090 DATN^ l*6f 14f999f l2f"iB5?f999f7f 
7.,99S 

1106 . DATA .'^Of-ldf 999f 17flSf999f 10- 

fSr 999 ^- " ^ ° « 
li*20 DATA loVUf 999i-7»7f9^9f4f6.f 



999 



PRESS <return;> to continuethe >jumber of .groups is. 9 



N 

2 



2 
2 
2 
2 



M.ErfN 
15 

flN 
.7 
• 18 
515 

5" 
'12 
7- 



'STANDARD DEV ■ 

1»41421356 

1.41421354 

1 .,88740797E-04 

2.82842707 

2.82842713 . 
^1.41-421355 

2 ♦82842712 

1.88740797E^4, 

1 ♦41421356 ' ♦ 



\ 



/UNIVARIATE 1-UAY ANOV<^ 
SOURCE SUM OF Sd. D.F. 



MEAN SQ. 



^ BETyEEN 
' WITHIN 
TOTAL 



308 .8 38.5 
31.^999991 9 



339^999999 



17 



•7 c;c:c!c!c!c;/.«=: 



THE F VALUE ISM 0.8281253 

WITH 8 -AND 9 DEGREES OF FREE-DOM 

ETf!SQUARE= .9058823S6 

PRESS <RETURN> TO CONTINUETWO' WAY ANALYSIS OF VARIANCE 



SOURCE OF 
N VARIATION 

ERIC 



SUM OF 
SQUARES 



. DEGREES OF 
FREEDOM- 



1 2 



II' 



ROUS 
COLUMNS 
INTERACTION 
RESIDUAL 



TOTAL • 

VARIANCE 
ESTIMATE 



i. 



-JL-Z 

192' \ -2 

108 2 
8.00000024 4 
31.9999991 9 



96 ^ 
54 

2'. 00000006 



339.999999 17 



P 
VALUE 



ETA SQUARE 
LEVEL 



-27 .318 
15.188 .565 
.563 V024 



■i- 



Notice"^^ very high ETA square -of .^06 for a univariate 




ANOVA and tlie ''sum of the ETA square level's of .31'8 + .565 

\ . " ■ ■ • ^ 

+ . 024 = . 907. Thus the explained, vari"anCp. in the ^univariate 
analysis hides the explained variances of the teaching methods, 
subject matter, and interaction. (As might be expected, 
the^greatest difference' is in subject matter, then teaching 
methodV^ and finally no interaction of teaching method and. 
subject matter*) ' * , 



Two way analysis of variance can also be analyzed us*ing 
, techniques of Multiple Linear -Regression. 

' The example here is from page *174 of Kerlinger and 
Pedhazur. First the data must be recast into a form necess^^ry 
for MLR. iJere we will use effect coding.' 



ERIC 
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Dummy Variable 



-.00 



1 


2 


3 


4 


5 


6 


o 7 


• 8 




1 


0 


1 


0 


' 1 


0 


0 


0 


16/14 


0 • 


1 


1 


0 


0 


0 


. l" 


■ 0 


12/10 


-1 




1 




-1 


0 


-1 


0 


,7/7 


1 


0 


0 


1 


0 


1 


0 


0 


20/16 


0 




0 • 


,1 


0 


0 


0 


1 


17/13 


-1 


-1 


0 


1 


d 


-1 


0 


-1 


10/8 


1 

• 


0 . 


-1 


-1 


-1 


-1 


0 


0 


10/14 


0 


1 


-1 


-1 


0 


0 


-1 


-1 


7/7 


-1 


-1 


-1 


-1 


1 


ft. 


> 

1 


1 


■ 4/6 



Columns 



IMPORTANT INTERACTION 
4 



1 


0 


-1 


1 


0 


-1 


1 


0 


-1 • 



.001 



0 


0 


0 


1 


• 1 


1 


-1 


-1 


-1 


Rows 





OTHER mERAeHONS OF INTEREST 



16 



14 



20 



16 



10 



14 



12. 



10 



17 



13 



/ 



.166 



0 


0 


0 








0 


1 


-1 


0 


-i 


1 









Interaction 



.005 



• 2 



0 


1 

— 


-1 


0 


1 


-1 . 


0 


1 


-1 



.021 



1 


1 


1 


0 


0 


0 


-1 


-1 ' 


.-1 



NOT MUCH lN*rEREST 



716 



■ , 5 


6 


! 

l\ 


0 


-1 




0 


0 


0 


0- 


0, 


0 


.522' 


. 1 




-1 


■ -i'l 


0 


1 






•' 0 


1 










t 



,522 



-1 



*2 2 

Again, ETA and R are equivalent in a one way design. 

♦ 

In the two way analysis, the rows and columns ^je repre- 
sented by two. dummy variables. Here a field dummy ^variable 
is used, in which 0 and -1 are used so a ' complete^ orthogonal 
effect is obtained. ^ 

Using single order correlations, each individual com- 
bination can be examined using MLR. / ^ 

The. row ETA equals the 4th single ordep: R . ' ' 

2 • 2 

The column ETA equals the 1st single order R . 

2 2 

The interaction ETA equals the 8th single order R . 

In addition, other correlatitf^ns can be examined for 

significance such as the second and third single order 
2 

R values?. 

Casting the duntai^ variables ii* their associated rows- 
and columns allows us to^see the relationships. Further, * 



we can ^s'tart our search for trend. 



5NRUN 



tt .-MULTIPLE LINEAR REGRESSION^ 
IS .-'''-TWO WAY^ ANALYSIS ADDED 

. 'STATISTICAL F'ROGRAMS 

♦ ♦ / / "/ 
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FORTHE APPLE BY- 




PRESS <RETURN> TO CONTINUE 



MULTIPLE LINEAR REGRESSION 



NEED INST.RUCTIONSTYES ' 
. TYPE IN DATA AT LINE 900» 

DATA»NUMBER OF INDEPENDENT VAR»SAMPLE SI2E» 
EACH INDEPENDENT WAR » AND EACHDEF^ENDENT VARIABLE 
HERE IS LINE 900 AS- A SAMPLE , • . 

900 DATA 8»18»l»0»l»0»l»0»0»0»i6 
»1»0»1»0»1 »0»0»0r)14 

, PRESS <RETURN> TO CdNTINUESAMPLE SIZE IS 18 
NUMBER OF -INDEPENDENT VARIABLES ARE 8 - ' 
1 0 1 0 1 0 0 0 .16 '1 
1 0 1 0 1 0 0 0 14 
01100010 12 

0 1 1 0 0 0 'l 0 10. 
-1-110-10-107^ 
-1-110-10-107, 

- 1 0 0 1 0 i 0 0 20 ■•• 

1 0 0 1 0 1 0 0 1'6 ^ - ' 
0101000 1 17" 

01010001 13 
. -1 -1 0 1 0 -1 0 -1 10 
-1-10 10-10-18 
10-1 -1 -1 -1 0 0 10 
10-1-1-1-100 14- ? 
0 1-1-10 0-1-17^ 

0 1-1-10 0-1-17 ' ; 

-1 -1 -1 -1 1. 1114' 
-1-1-1-111116- 
THANKS FOR THE ITATA* NPU LETS SEE» » . 
^ EQUATION'^EFRfCIENTS: ^ - • 

coNStfitfr: 11 

VARIABLE(l): > 4. ' 1 

VARIABLE(2): 0 io 

VARIABLE(3): 0 •^ ' ' 

VARIABLE<4): 3 

VARIAPLE(5): 0 ! 

VARIABLECd): ,0 

VARIABLE<7)*: 0 



:erjc 



-15. 



variableVb y: i " •. ■■ 

R-SQMARE=» 905882355 . 

MULTIPLE CORRELATION =»95177g522 

STANDARD feRROR OF ESTIMATE 1.88561806 

F V^^LUE .= 1 0.^628 1252 " 
WITH 8 AND 9 DEGREES OF FREEDOM 
SIGNIFICANCE' LEVEL IS .1.3E-03 , 
>INGLE ORDER CORRELATIONS? 
PtlESS 
1 



3 
4 

5 
6 
7 
8 



<iRETURN> 'JO CONTINUEVAR* R-SQR 
l65 . 54 0 ' 

5E-03. • , • 
.021 

lE-03 , 
.716 



SIG LEVEL 



-.1 
.079 
.318 
lE-03 
6E-03 
6E-03 
.024 



13.5 
'.594 

30>375 
.i4> 
.563. 
.563 

2.25 



. 52v 
.166 



PRESS <RETyRN> TO CONTINUE!] 
1 2 .5 



t:ercorrelations 



1 3 

1 8 
1 9 



2 
2 
2 
2 

n 

2 
3 
3 
3 
3 



3 
4 
5 
6 
7 
8 
9 
4 
5 
6 
7 



-^{-8- 
3 9 



4 
4 
4 

4 

5 
5 
5 
5 
6 
6 
6 
7 
7 
8V 



6 
7- 
8 
9 
6 
7 
8 
9 
7 
,8 
9 
8 
9 



0 ■ 
0 

6 

0 
0 
0 

.751 
0 

0 
0 

0 ' 

0 

0 

.376 

0 
0 
0 
-0 
.282 

0 

0" 
0 

.564 
.5 
.5 
.25 

.038 

.25 

.5 

.077 
.5 

.07J 
' .153 



.7 



ERIC 



USE KERLINGER & PEDHAZUR» 1973 
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PAGES 175-180 FOR PROPORTIONS OF 
VARIANCE 



7 




Now we turn. to data which lend themselves more directly 
to a search for trend. ' • 

First a look at data which show definite trend. The 
analysis is Nth - correlation analysis. The data set is 
from page 210 of Kerli-nger and Pedhazur. 

•"^ The first step is a plot of the "data which 'has. the 
following values. ^ . . 



X 


1 Y 




X 


Y 


2 - 


4 




6 


13 


2 


; 6 

* 




6 


14 


2 


5 ■" 




6 


15 


4 , 


7 

\ 




8 


16 


4- 


10' 




• 8 


17 


4 


10 




p 


21 













X 


Y 


10 


is 


10 


19. 


10 


20 


12 


19 


12 


■.20 > 


12 


21 



10 



1 



# « # 



• ••••••••• 



♦ ♦ ♦ ♦ ♦ ^ 
♦♦♦♦♦♦ 



-FITTING HIGHER ORDER PLOTS- 

CONTAINS SOME COMMON BASIC SUB 
PROGRAMS BY 

FOR THE APPLE BY 
CARL F. BERGER 
UNIVERSITY OF MICHIGAN^ ' 



::::::::::::::::::::::::::::::::: J 

PRESS <RETURN> TO START 

CORRELATION PLOTING — 

DO YOU NEED INSTRUCTIONS? 

?YES 



490 REM *** IHSTRUCTIONS ttt 
500. REM TYPE IN DATA AS 510 D 

^A XlfYlf ..999»999 
502. R&M WHERE X,Y ARE X VALUES 
VALUES » 

504 /REM USE 9.99 » 999 » 999 TO STOP 



510" 



999 



DATA. '2»4»2»6»2»5»4»7»4»10 

»4»10»6»13» 6»14»6»15»8»16»8 * 

»17»8»21»10»18»10»19»10»20»1 

2»19»12»20»12»21 

DATA 999 » 999 » 999 . ' 



3C0NT 



4 



♦ ♦ 



» ♦ 
♦ ♦ 



-FITTING HIGHER ORDER PLOTS- 

ii '■ . 

CONTAINS SOME COMMON BASIC SUB ' ° . • . ' 
. PROGRAMS BY : : ^ , 

FOR THE APPLE BY il- , ■ ° , 

CARL F» BER&ER 3 
UNIVERSITY OF HICHICAN tt .' ' ° 



»•»•••»•. ••»*»«»*<»»«»»t». *»»»•'»»«««>«« 

»»•• »"»»••»*•••»»•»»»»»»•», 

PRESS ^<RETURN> TO START 



CORRELATION PLOTING ^ . 

DO YOU NEED - INSTRUCTIONS? • 

490 REM ttt INSTRUCTIONS ttt 
■5<J0, REM 'TYPE IN DATA AS 510 D 

ATA Xl^Ylf ,..999»99.9 
502 REM WHERE X»Y ARE X MALUES 

f Y VALUES. 
504 REM USE 999»999f999 TO STOP 

510' DATA ■ 2'»4,2»'6»2f5»4f7»4»10 
r4»10r6»13f 6f 14f 6f ISf 8»16f8 
fl7»8f21»10»18fl0»19,10»20fl 
. 2fl9,12,20»l2f21 
999 DATA 999 » 999 » 999 



3C0NT. ' ^ . 

DEGREE OF THE EQUATION DESIREDI . « 
/THIS MAY TAKE A LITTLE TIHE..»..HHH.. 

STILL THINKING! • ' 

STiLL THINKING! ' ' 

STILL THINKING!' 
STILL THINKING! * 

CONSTANT= 3 .-26666647 
1 DEGREE ■COEFFICIENT= K55714286 * 



COEFFICIENT OF DETERMINATION <R S8R)= .88323628 
COEFFICIENT OF COgRELATldN= .9398^6512 « 
STANDARD ERROR OF THE ESTIHATE='"'ira5113207 

CARE TO LOOK AT THE BEST FIT? N ■ ; - ' - 

ANOTHER FIT? Y , . ' , 



Ixl 



ERIC 



ANOTHER FIT? YES| 

) 



Q 
□ 




2*i 



TREDIH'D ARRAY ERROR' IN 10310 
3RUN ' . 



t -FITTING HIGHER ORDER PLOTS- 

: CONTAINS SOHE COHHON BASIC SUB 
t PROGRAMS BY 

J 

! . FOR THE APPLE BY 

: . CARL F- BERGER 

; UNIVERSITY' OF MICHIGAN 




PRESS <RETURN> 'TO START 



' CORRELATION PLOTING 

DO YOU NEED INSTRUCTIONS? 
?N 

DEGREE OF THE EQUATION i)ESIRED2 
THIS HAY TAKE A LITTLE TIME^.^^HMM-^ 
STILL THINKING! 
STILL THINKING! 
STILL. THINKING? , 
STILL THINKING! 
■ . STILL THINKING! 
STILL THINKING! 
STILL THINKING! 

STILL THINKING! ' . 

STILL THINKING!. 



CONSTANT= -1 ..90000019 

1 DEGREE COEFFICIENT= -3 ..4946429^ 

2 DEGREE COEFFICIENT= -;i38392W2 



COEFFICIENT OF DETERMINATION (R SQR)= ..942770418 
COEFFICIENT OF CORRELATION= ►970963655 
STANDARD ERROR OF THE ESTIHATE= 1 ..48307909 

CARE TO LOOK AT. THE BEST FIT? N 
ANOTHER FIT? N • 



23- 



PRESS <RETURN> T.O START 

C0RREL(iTION PLOTING 
DO YOU- NEED INSTRUCTIONS? 
* ?« 

DECREE OF THE EQUATION DESip£D3 " -. 
THIS HAY TAKE A LITTLE TjfiE.^.^HHM..- 
STILL THINKING! : 
STILL THINKING! 
STILL THINKING! ^ - 

STILL' THINKING ! ' 
&T;lL JHiNKING"! 
STIL'L THINKING! 
STILL THINKING! 
STILL THINKING!' 
.STILL THINKING! 
STILL THINKING! 
STILL THINKING! 
'^TILL THINKING! 
STILL THINKING! 
STILL THINKING! 
STI|L?THINKING!- 




STILL THINKING! 



' , CONSTANT= ..666666589 ^ 

1 DEGREE COEFFICIENT= 1 ..88029105 

2 .DEGREE COEFFICIENT= ^1289^8252 
/^-DEGREE COEfFICIJENT= -5^l273U812 



v7' 



•.COEFFICIENT OF DETERHINATION (R ^R )=V,n6j68567 
COEFFICIENT OF CORRELATIONS ►9727^336^6 
STAN&ARD ERROR. OF THEv^STIHATE5-1Z4874^6 

CARE TO LOOK AT THE BEST FIT? N • ' ' 
^^THER~{^IT? N^^-^ • V •• 



0 



to 



ERIC 



I 



9r> 



CORRELATION PLOTIHG 

DO YOU NEED INSTRUCTIONS? 

?H • - 

DEGREE OF THE EQUATION DESIREDi « 
THIS MAY TAKE A LITTLE TIME^^^^HHH* * 
• STILL THINKING! 

STILL THINKING! 

STILL THINKING! " V 

STILL THINKING! 

STILL JHINKING!" 
V STILL THINKING!' ' 

STILL TttiNKING! 

STILL THINKING? , 

STILL THINKING! 

STILL THINKING! • 

STILL THINKING! 

STILL. THINKING! 

STILL THINKING! 

STILL THINKING! ^ 

STILL: THINKING! 

STILL THINKING! ^ . 

STILi. THINKINGS 

STILL THINKING! 
^' STILL THINKING! 

STILL THINKING! 

STIU BLINKING!" 
- STILL THINKING! 

STILL THINKING! 

StiLL THIN?:iNG! 

SJILL THINKING! 

60NSTANT= 8 .-16669438 
' 1 DEGREE COEFFICIENTS -4 ..57806223 
2 DEGREE COEFFICIENTS K8663239 - 
• • 3 DEGREE COEFFICIENTS •-^95023^29 
4 DEGREE COEFFICIENT? 6 ..51042802E-03 



COEFFICIENT OF DETER^NATIOH <R SOR)= ..950915275 
COEFFrcIENT OF CORRELATION? ..975148848 . 
STANDARD lERROR OF THE E^IHATE= 1.47537072 

CARE TO LOOK AT THE BEST FIT? Y 



^1 



/ ■ ■ 



B 



\ 



B 



ANOTHER FIT? YESi 



ERIC ^ 



12 



< 




Exponential Regression ^^^j * * " - 

In addition to higher ^order polynomial fits (another ^ 
name for the analysis just. completed) , we can examine an 
exponential fit of the fori \ ' 

y = e^' X e^^A 
'Eor some rare science education data such fits may 
jwork. The example shovn is from the findings of jstudents^^ 
measuring the force^and distance between attracting magnets 
The data are from six separate student teams. 



Distance between 
magnets 


Force in washers 
to release 


0 




20^ 18, 19, 


19, 19 


1 




12, 12, 10,' 


10, 1.3 


2 . ' 


■ 5, 


6, 6, 7, 8, 


8, 9 


' .3 


4, 


.5, 5, 6,., 6, 


7 


4 . 


3/ 


3, 4,--4,' 5, 


6 


'5 ' - 


2, 


2, 2, 4,°4, 


4, 5 



The computer printout and values are listed oij the 



following page, 



3RUN 



V 



- EXPOHEKJIAL REGRESSION • - 

STATISTICAL PROGRAMS 

• FOR THE APPLE" BY 

CARL F. BERGER. 
UHIVERSm OF MICHIGAN 

♦ 

♦ ♦ ♦ ♦ ♦ ^Nt. 

PRESS <RETURN> TO START 

CORRELATION PL6TING 
DO YOU NEED INSTRUCTIONS? 
?YES 

490 REM nt INSTRUCTIONS ttt 
500 REM .TYPE IN DATA AS 510 DAf 

A XlfYlfFl».».99\»999»999 
502 ' REH UHERE X»YfF ttRE X VALUE 

■ Sf Y VALUESf FREQUENCIES. 
504 REH USE . 999 » 999 » 999- TO STOP 

510 DATA 0f-ntl,0.t20tlt0flBtli0t 
19f3 

520 DATA lf9»lfl»12»2»l»10»2»l»l 
, 3,0 

530 DATA 2f5»l»2»6»l»2»7»l»2»8»2 




9»1 



540 DATA 3»4»l»3»5»2»3»6»2»3»7»l 
550 DATA 4i3»2»4»4»2»4»5»l»4»6»l 

560 DATA 5i2»3»5»4»2»5f5»l' 
999 DATA 999 f 999 » 999 . 

EXPONENTIAL RESRESSION 

A= 15.7742992 
B= -.346410937 

MEFFICIENT Or DETERMINATION <Rt2)= .849172246" 
COEFFICIENT OF CORRELATIONS .921505424 
STANDARD ERROR OF THE ESTIMATE= .25656034 



CARE TO LOOK AT THE -BEgT FIT? Y 

20 

2 



r.. 




'and/ 



sts for Trend Using . Orthogonal 
' 'or Person Vectors 



•tnogonal . 



\ 



ki a f inaierxampie from Kerling,er and^ Pedhazur , we - 
use the data set from pages ^218 and 219 in a section en- 
titled 'Trend Analysed with Repeated Measures/\ 

Here not only are there orthogonal variables but also 
a te^.t for repeated measures- -that is, a measure far" each 
person so we can note "if. th^e influence of individual 'dif- ♦ 
ferences will ma*ke a significant contribution td'^ the explana- 
fion of variation, of scores. ^> ^ * 

No^e how the data are/^tered. A small subroutine will 
gemerate the dummy variables>fDr the replic'ated samples, and 
^the Orthogonal variables are ent^ed as separate data state- 
ments' starting on lirf^- 160. 
\ Having the data in tli^bs-^form^ s-ayes the massive data 
entry problems associated\ with this kind of analysis technique^. 



'A 



•33 



Uruh - . , 

::*.::♦»:♦»::::::::::::::::::♦:;::;:♦♦ 
:::;::::::::{;:::::::::::::::::;::: 
II 

REGRESSION- ANALYSIS WITH - 
- REPUICATION OF PERSONS - 
STATISTICAL PROGRAMS 



^OR THE APPLE- BY ' 

CARL F. BERGER 
UNI^RSITY OF HICHIGAN 



II 
:r 
jj 
tt 

ti 
II 

tt ::::::::::: 
j:tt:tttttt:tttttttt.ttttt^ttt;ttttt: 

PRESS <RETURN> TO CONTINUE 
REGRESSION ANALYSIS ' 
NEED INSTRUCTIONS? YES 

INSERT THE NUMBER OF REPLICATES AT LINE 20 
THEN TIMES OR PROBLEMS AT LINE 30 " 
THE CONTRASTS FOR TREND AT LINES AO AND 
AT LINE 160 

AND TYPE INDEPENDENT VARIABLES STARTING AT LINE 

20 N = '3 . 
25 REH REPLICATES/SUBJECTS 
30 P = 6 . 
35 REH TIHES/PROBLEMS * 
40 TT = 5 : ' 

45 REM CONTRASTS FOR TREND 



1550 

4 



160 DATA -5»5f-5ilV-lf-3»-lf7f-3 
f5 - ' 



1550 DAJA 4»6f5»7flO»10fl3fUfl5 
»16»17f21fl8»19f20fl9f20f21 f 



/ 



3RUNPR#1 
1 

3C0NT . * 

SAMPLE SIZE IS 18 
-55.-51-1104 
-5 "5 -5 1. -1 0 1 I' 
-5 5 -5rl -10 0 5 
-3 -'I 7[-2 5 10 7 
-3 5 0 1 10 
-3 5 0 
2 -10 1 



-3-1 7 
-3 -1 7 
-1 -4 4 
-1 -4 A 
-1 -4 4 
1 -4 -4 
-4 -4 
-4 -4 



0 10 
0 13 

2 -10 0 1 14" 
2 -10 0 0 15 
2 10 1 0 16 
2 10 0 1 17 
2 10 0 0 21 
-1 -7-3 -5 1 0 18 
-1 -7 ,-3 -5 0 1 19- 
rl -7-3 -5 0 0 20 



As, the output indicates, the single order correlations"can 
account for each variable separately. But the. total shared 
variation of the single correlations squared do not equal 
the total R square finally printe(^ out, .9796 versus .%844. 
The. only way to match more closely\th^ total is to use 
effect codes and l?etter yet full orthogonal (dummy variables. 
Nevertheless, the^ variation can) still be isolated and 

1 - a linear 'Component 

2 - a quadratic component 

3 - not a cubic component 
and some significant individual correlation 
in variable 6. ' 



vis due to; 



> \ 

\ 

\ 



i>0 



5 5 5 1 1 1 0 19 
5 5 5 1 1 0 1 20 
5551100 21 * 

EQUATION coefficients: 

constant: 15.3333333 

VARIAELE(l): 1,55714286 

VARIABLE(2): -.369047619 

VAI?IABLE(3>: -.0611111111 

VARIABLE(4): . .178571429 - ' 

VARIAELE(5): .0198412698. 

variaILe(-6): ' -2.5 • ^ 

VARIAELE(7): -1 v 

PRESS <RETURH> TO CONTINUE 

COEFFICIENT OF DETERMIHATI0N(R-SQR-)=^984388554 

'coefficient OF MULTIPLE CDRRaATION =.992163573 

STANDARD ERROR OF ESTIMATE .94868321 

F VALUE = 90.0793819 ^ 

WITH 7 AND 10 .DEGREES OF FREEDOH 

SIGNIFICANCE LEVEL IS 0 



SINGLE ORDER CORRELATIONSTYES 
"sic LEVEL 




TOTAL R SQ5t IS .977618383 
.3LIST1S60- 



1550 DATA 4»6»5»7jil0,10»13»14»15 
»16»i7f21*18»19»20»19»20»21 

1560 DATA ^01.6»89.6»85^3»106.2» 
112.8»84»73.4»68»108»120 ^ 

1570 DATA 61.6»91.1»78.8»91.4»94 
/80.2»72.6»64»63>2»94 



-36- - 



Some sample problems to test the ideas presen 





CONSTANTS 15JSZ7t^5 
(I DEGREE COEFFICIENTS 10,5436623 

OEFFICIENT OF Dfe^^RMINATICIN <R SQR)= .9 
65&7579 \ \ 

COEFFICIENT OF CORRELATIONS .96777455 
STANDARD ERROR OF THE ESTIMATE* 9.193587 

71 • ■■ • ■ ■ - - .. . .. • 

CARE TO LOOK AT THE BEST FIT? YESi 



* 4: 



ERJC 



I 

^ 00 



42 § 



120 



1 



.1. 



I 

■13 



Q 

13 
B 



2 



3 



tDEjGREE of the equation OESIREOn 



" 2 

a 




IS 



43 



\ 




120 



1. 



B 



B 



□ 



.1. 



I 



ANOTHER- FIT? YESi 



1.0 



ERIC 



47 



3 

3RUN 

REGRESSION ANALYSIS 

NffiB INSTRUCTIONS? YES 

INSERT THE NUMBER OF REPLICATES AT LINE20 

THEN TIMES, ORr^OBLEMS AT LINE 30 ' 

THE COHTRASTsta TREND AT LINES-40 AND ' 

AT LINE160 

20 H = 10 

25 REM REPLICATES/SUBJECTS 

30 P = 3: REM TIMES/PROBLEMS 

35 REM TIMES/PROBLEMS 

40 TT = 2: REM CONTRASTS FOR TRE ' 

m 

45 REM CONTRASTS FOR TREND 



160 DATA lflf0f-2f-lfl 

TYPE CONT TO GO, ON 

BREAK IN 9047 
3C0NT 

SAMPLE SIZE IS ?0 
l.i 10000000050 
1 10100 00000 62.2 
1 100. i 000000 101.1 
1 10*0 010000088. 
1 1 0 0 0 0 1 0 0 0 0 114.7 
1 10000 0. 1000 85.9 
1 1 0 0 0 0.0 0 1 0 0 62.4 
IS 1 0 0 0. 0 0 0 1 0 63.5 ^ 
1 100000 0001 .88.6 
1 1000000000 115 
0 -2 100000000 101.6 
0 -5 0 1 0*0 0 0 0 0 0 89.6 
0 -2 00100,0000 85.3 
0 -2 00 0100000 106*2 
Q -2 000010000 112.8 
0 -2 0 0 0 0 0 1 0^0 0 84 
0» -2 0000001 00 73..4 
0 -2 0 0 0 0 0 0 0 1 0 68 
0 -2 000000001 108 
0 -2 0 0 0 0 0 0 0 0 0 120 
-1 1100000000 61.6 
-1»1hO 1 0 0 0 0 0 0 0 91.1 
-1 1 0 0 1 0 0 0 0)0 0 78.3 
-110 0 0 10 0 0 0 0 91.4 
-1 10000100 00 94 
-1 1 000001000 80.2 
-1 1 0 0 0 0 0 0 1 0 0, 72.6 
-1 1 0 0 0 0 0 0 0 i'6 64 
-1 1 0 0 0 6 6 0 0 0 1 63.2 
-1 1 0 0 0 0 0 0 0 0 0 94 

EQUATION coefficients: 

constant: 109.666667 
VARIABLE( 1 ): 2.02500001 
^ VARIABLE(2): -4,59166667, 



-45- 

yARIABLE(3): -38.6000001 i 

yARIABLE(4): -28.7000001 

VARIABLE(5)J -21.2666667 

VAB5ABLE(6)J V -U. 4666668 : 

VARIABLE(7)J -2.5000Qp09 

VARIABLE(8)J -26.3000001 

VARIABLE(9K -40.2000001 

VARIABLE(IO): -44.5000001 

VARlABLEdDJ -23..0666667 

BREAK 947 

icom 

COEFFICIENT OF DETERMINATION R-SQR )=*.725080401 

COEFFICIENT OF MULTIPLf CORRELATION =.85151653 

STANDARD ERROR OF ESTIMATE' 14.27963 / 

F VALUE = 4.31578981 

WITH 11 AND 18 DEGREES OF FREEDOM 

S-IGNIFICANCE LEVa iS 3..4E-03 



. SINGLE ORDER. CORREIATIONSTYES 
V ^VAR* ^m^QR F , i'SIG. LEVEL , ■ * 

1 7.8f8l211E-03 .5123 « ,^^5123 * 

2 'AllS^jn 7.97631861 .0109 

.0488^565;?^ 4.50475768 . .0456 
.4 7.2123^24E'-^ .5071" jj— 



5 '2v32864186E7fe * ° '7Xi2i^ 77021, 

6 ^0289307665.^;4 f,894i039^ ; .183 

7 . .147836582 9 .6794Q"62Ik ' 6.1Et03 

8 .1.7577382E-03 , <*T7373 .^,73|3j*' 

9 .0846631703. 5(5432099^ 1 028^ 

10 .135432644 ' 8.86727464 ' 9E'03 « 

11 2.56182574E-04 .8957 ^.8937 ' 
TOTAL R SQR IS .606943597 



4 



d 

V 



IB!! 








r: 




r 


• •• 


5. 




4: 





k level 3 




^Problem Utimbcr 



REFERENCES AND PROGRAMS 



Kerlinger, F.N* and 'Pedhazur , , E. J. Mu 1 1 ip 1 Re gr e s s ion 
in Behavioral Research * , New York: Holt, Rinehart, 
and Winston, Inc. 1973, 



Poole, L. , and Borchers,^ M., Some Common Basic Programs . 
Be/keley: Osborne/McGra^-Hill, 1978, ' 



• i -4S- 

NAME..NTH-CORKF "IBaTE 03/29/81 TIME.. 850 PAGE.,. 01 
STARTING LINE..0 ENDING LINE.. 63999° ' 

4 GOSUB 50000 " 

5 HOME : PRINT : 

10 print": print "C0fy?ELATION PLOTING" 
, 50 PRINT "DO YOU NEED INSTRUCTIONS? " 
60" INPUT Z$ • . . 

70 IF LEFTf (Z$»l) = "Y" THEN 480 
^80 GOTO 10000 

: 480 HOME : LIST 490 - 9991, .END 
490 REM ttt INSTRUCTIONS %tt 

500 REM ] TYPE IN DATA AS 51Q DATA Xli Yl » . . t999»S^9 
502 REM ^* WHERE X»Y ARE -X VALUE'S » Y VAlUES. 

• 504 REH 'USE 999 » 999, 999 tO jsTOP 
510 DATA 2f4f2f6f2f5f4f7,4f 10f4»10f6^13f 6»14»6»15»8»16»8»17»8»21»10f 1 

8»10»19»10»20»12,19»12»20»12»21 
999 DATA 999 » 999 » 999 . i 

10000 PRINT CHR$ ( 4 )"BRUN,L0MEM: " : & LOMEMf 24576 
. lOOtO HGR2 : PRINT CHR$ (^-)"BRUN AS CHR GEN" 
10020 HOME 

10030 DEF. FN R( X )' = INT (X * lOQO + .5) / 1000 
10080 REM TO FIND MAX AND MIfl TO FILL SCREEN *** 
- « 10085 CLEAR \ 

10090 READ X»Y • 

loloo XI ^ x:xA = xtYi = y:ya = y 

lOllO READ X»Y 
'10120 IF X = 999 GOTO 10220 
10130 IF X > XI GOTO 1015.0 
10140 XI = X * 
10150 IF X < XA GOTO 10170 
10160 Xft = X , 

10170 IF Y > Yi GOTO 10190 
u^OieO YI = Y * - 

10190 IF Y < YA GOTO 10110 ^ 
10200 YA = Y 
^ 10210 GOTO 10110 ' 
10220 RESTORE 
10230 HOME 

10240 XS = 279 / ( XA - XlJtYS = .159 / ( YA. - YI ) 
10250 GOSUB 11170 

10260 REM ««* NTH-ORDER SUBROUTINE )Mc* ' ' . 

' 10270 RESTORE * ' 
10280 VTAB 22 
• 10290 INPUT "DEGREE OF THE EQUATION DESIRED" »D 

• 10300 HGR2: 
• 10305 PRINT "THIS MAY TAKE A LITTLE TIME. . . .HHM. . " 

" 10310 DIM 'A(2 .« D + l)»R(D + 1»D + 2)»T(D + 2) 
10320 REM ENTER DATA AND POPIJLATE MATRIX 
10330 READ X ^ 
10340 IF X = 999 THEN 1049,0 
10350 READ Y • ' . ^ 

10370 N « N- + 1 ' 
10380 FOR J = 2 JO 2 # D + I . 
10390- A< J) = A(J) + X t (J - 1) 

10400 NEXT J . . 53 

, 10410 FOR K = 1 TO D + 1 , 
10420 .RCK»D + 2)*= T(K) + Y * X t (K - 1) 
10430 T(K^ = T(K) +. Y ;jc X t (K - 1 )' 



NAME»»NTH-CORKF^ DATE »» 03/29/81^ TIME.»850 PAGE.*02 ' 
.STARTIKG LINE.»0 ENDING LINE» » 63999 . • ' 

10450 T<D + 2) i= T(D + 2) + Y # Y . ^ ' ' » , 

10470 GOTO 1033Q • i - ' 

10480 A( 1) - N - • 

10490 FOR = 1 TO D + 1 
10500 FOR K = 1 TO D + 1 
10510 li|<J»K) = A(J + K - 1) ' 
10520 NEXT K ■ . 

10530 NEXT J . ' ' 

10540 JOR J 1 TO D + 1 ^ 
10550 FOR K = J TO D + 1 " * 

10560 IF R(K*J') < > 0 THEN 10600 

10570 *NEXT K ' ^ . ' 

10580 PRINT "NON UNIQUE SOLUTION* SORRY!" 
10590 GOTO 11090 
10600 FOR I = 1 TO D + IS 
10610 S = R( J»I ) > ^ 

10620 R< J»l) = R(K»I ) > • ' . 

10630 R(K»I) = S . ' 

10640 NEXT I 5 ^ - 

10650 Z = 1 / R(J»J) . ■ . • ' " 

10660 FOR i = 1 TO D + 2 . - ' 

10670 R(J»I) 4X* R(J»I) 

10680 NEXT I ' • . 

- 10690 FOR K = 1 TO D + 1 
10695 PRINT "STILL THINKING!" - ^ ' 
10700 IF K = J THEN 10750 

10710 Z = - R(KrJ) . 
1Q720 FOR I = 1 TO D + 2 . • ' 

10730 R<KrI) = R(K»I ) + Z *- R(J»I )• J 
10740 NEXT I ' 
10750 NEXT K ^ • 

10760 NEXT Jw 

10765 HGR2 ^ - v ■ ^ • 

10770 VTAB i: PRINT - • * ' ' 

10780 PRINT " - 1:0NSTANT= ";R(1»D + 2) * — ' 

10790 FOR- J ? 1 TO D ' * ^ ' 

10800 • fJiINT J»", DEGREE COEFFICIENT= "»R(J + IrD + 2) ' ' ^ 

10810 NEXT J 

10820 F^im • 
• 10830 p =' 0 ' - : . * !' : 

10840 ■ FOR J = 2 TO D + 1 * 

10950 P = P + R(J»D + 2)>'(T(J) - A('J) * T(1) /TJ) 
10860 NEXT . * 

- 10870 Q = T( D + 2 ) - T( 1 ) ,t 2 / N 

10880- Z = Q - P * 

10890 I=N-D-1 - / * ^ y - 1 

10900 J = p / D , ; , 

10910 PRINT 

10920 J = P / Q 

10930 PRINT "COEFFICIENT OF DETERMINATION (R SQR.)= "JJ 

10940 Pf?INT "COEFFICIENT OF CORRELATION=-" J-SQR )- 

- 10950 PRINT "STANDARD ERROR OF. THE ESTIMATE= " ? SQR ( ABS ( Z / I) ) 

10?60 ^RINT " ■ ? ■ 

. 10970' INPUT "CARE TO LOOK- AT THE BEST FIT? "?Z$ , 

10980 IF LEFT$ <Z$»1) < > "Y" THEN 11090 , ^ "° ' 

:■■ 10990 GOSUB 11170 . . . ^ ' . . 

11000 FOR X =.XI TO XA '° 51 " * 1 



50- 



NAME..NTH-CORKP 
, STARTING LINE..0 



DATE. ♦03/29/81 ' TIME.. 850 P^GE..03 
E-NIUNp LI^E.. 63999 



IIOIO- 

li020 

11030 

-11040 

11050 

11060 

11070 

. 11080 
11090 
11095 
11096 
11100 
11110 
11120 
11130 
l'U40 
11150 

.11155 
11160 
11170^ 
11180 



2) 



* X t J 



"Y" THEN 



P s R< 1 f'D + 2 > 

FOR J = -J, TO D 
P = P + R( J + IrD + 
liEXJ J 
Y = P 

GOSUB llilO 

NEXT. X 

VTAB 23 

INPUT "ANOTHER, FIT? 
If"^. LEFTS (2$fl) = 
END 

LIST 840 . • 
PX = INT (XS *.<X - XI));PY = 

H50t:OR= 3 . 
.IF'PY < 1 THEN' 11160 , 

IF PY > 159 THEN 11160 

HPLOT €X»EY TO PXfPY 
EX = PX:EY = PY 

RETURN 

REM m PLOT ROUTINE *** 
~ HGR2 ' : HCOLOR= 2 ■ 



1Q085 



159 - INT ( YS * 



(Y^- YD) 



11190 VTAB i: PRINT 
'37: PRINT XA 



YA: VTAB 20: HTAB i: PRINT YI : HTAB U PRINT X-I f : HTAB 



11200 

11210 

11220. 

11230 

11250. 

11260 

11270 

11280 

11290 

11300 

11320 

11330 

11340 

11350 

11360 

11370 

11380 

11390 

11400 

11410 

11^20 

11430 

.11440 

11450 

11460 



159 - INT CTS * ( Y - YI ^) 



HPLOT 0»0 TO Of 159 TO 279 » 159 
RESTORE 
READ X»Y 

IFX = 999 THEN RETURN 
PX = INT <XS V <X - XI)):PY = 

HC0U3R= 3 / 

IF fx = 0 THEN PX = PX' + 2 ■ 

i¥ PY = 159 THE>< PY- = PY 1 

HPLOT PXtPY . . 

GOSUB 11390L- ' . 

G0T.6 11220 - ... 
CX = INT (PX / 6.4):CY = INT (PV / 8) 

IF CX > 38 THEN CX = 38 

IF CX = 0 THEN CX = 1 . ' 

IF CY = 0 THEN CY - 1 ' 

HTAB (DX): VTAB (CY): PRINT F 

GOTO 11220 * ■ ^ ' 

RE>i tmHH SQUARE SUBROUTINE *** 

XT = PX - 2:xB = PX + 2:yt =*^py - 2:yb = py + 2 

IF XT < 1 THEN XT = 1 
IF XB > 279 THEN XB = 279 ' 
. IF YT < 1 THEN YT = 1 ; 
IF YB > 159 THEN YB = 159 ' 
WpLOT XTfYT To XTfYB TO XB^YB 
RETURN*^ ' 



TO XBfYT TO .XTfYT 



50000 HOME 



VTAB 6 1 PRINT "jf}}}}}}}}}}}*}}***** 



iERIC 



50020. 
50O30 

■ ° ; 

• ^0035 
50040 
tj 50050 
^0060 



PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 



» * » 
♦ ♦ 



INVERSE : P.ftiNT -FITTING HIGHER ORDER PLOTS- " » : NORMAL 



CONTAINS SOME COMMON BASIC* SUB- 
PROGRAMS BY , 



II « l» 



55 



T 



NAHE»»NTH-CORKP 
STARTING HNE»»0 



\ 



50070 
50080 
500^0 
^50100 
^OUO 

sWo 

.50l"30 
; 50140 
50150 



-51- 

DATE» »03/?9/81 • TIME*» »850 PAGE;»04 
ENDING «i.INE-» » 63999 



PRINT ' 
PRINT • 
PRINT ' 
PRINT ' 
PRINT ' 
PRINT ' 
VTAB 22: INVERSE 
GET Z$; IF Z$ 
RETURN 



FOR -THE APPLE BY 
CARL F» BERGER. 
UNIVERSITY OF MICTIGAN 



» it 



PRINT "PRESS <RETURN> TO START"?: NORMAL 
" THEN 50140 




ERIC 



** THE LINE CROSS REFERENCE 

: ' ■ \ . 

PROGRAM JlAME..'.NTH-COR 
. ^\ DATE... 03/15/81 



480-: 10070 



490 i 480 


« 


100001 


10 




10085! 


! 11095 




10110! 


! 10190 


102:10 


10150 


t 10130 




10,170" 


: 10150 




10190 


; 10170 




10220 


; 10120 




10330! 


! 10470 




1X)480! 


! 10340 




10600! 


! 10560 


i ■ 


10750! 


! 10700 




11090! 


! 10590 


10980 


lillO! 


! 11060 




11160! 


J 11130 


11140 


11170! 


! 10250 


10990 


,11220! 


! 11320 


11380 


11390! 


! 11300 





THE VARIABLE CROSS REFERENCE 

PROGRAM NAME...NTH-COR 
• DATE. ..03/15/81 

A( / 

10310 1039*0 10390 10480 10510 10850' 

CT ■ ' ■ 
10360^10460 

cx . 

11330 11340 11340 11350 11350 11370 

CY r . '' 

li330 .11360 11360 11370 , 



. \ 



/ 



J 



10290 10310 10310 10310 10310. 10380 10410 104S0 10450 10450 10490 10500 10540 
10550 10600 10660 10690 10720 10780 10790 10800 10840 10850 10870 10890 10900 
11010 11020 11030 ' , ' . 

EX . • 

1U50- 11155 , ' " ■ ■ 

EY • ' " .' . 

11150, 11155 . • ' . ' . . ^ 



10O90 1X)1 10' 10350 10360 11220 112^0 11320 li;570 
ERJC 10600 10610. 10620 10620 10630 10640 10660 10670* 10670 10680 10720 10730 107' 



• • • . -53- 

» * « t 

10730 10740 10890 10950 11240 .11310. ' • • 

J ■ ■-/■ - « ' 1 • 

10380 10390 10390 1039P 10400 10490" 10510 iOSlO 10530 10540 10550 10560 10610 

10620 10650 10650 10670 10670 10700 10710 t0730 10760 10-790 10800 10800 10810 

10840 1^0850 10850 10850 10860 10900 10920 10930 10940 11020 11030 11030 11040 



K 

10419^ 10420 104^20 10420 10430 
10560 10570' 10620 10630 10690 



10430 10430 1^440 10^0 10510 10;510 10520 10550 
10700 10710 10730 10730 10750 



\ 



10370 10370 10480 10850 10870 10890 



1083(\ 10850 10850 10880 10900 10920-11010 11030 11030" llOJ 



PX 

11110 l.i;50 .11155 11250 11270 
PY 

11110 11130vJ1140 11150 11155 



11270 11270 1129.0 11330 11400 11400 ^ 

11250' 11280 11280 11280 11290 11330 il400 11400 



Q 

10870 10880 10^0 



R( 

lOOSO 10310 10420 \10510 10560 
10730 10730 10730 K)780 10800 



10610 10620 10620 10630 10650 10670 ^10670 10710 
10850 11010 11030 



S" 

10610 10630 
T( 

10310 10420 10430 .10430 1^450 10450 10850 10850 10870 10870 



ltl030 10030 10090 10100 lOlOX 
10390 i0420 10430 11000 11030^ 



10100 1Q150 10160' 10240 11000 11^90. 
XB 

11400 11420 11420 11450 11450 



10110 10120 10130 10140 10150 10160 10330 10340 
11070 11110 11220 11230 11250 



. XI/ • 

10100 10130 10140 10240 11000 



illlO 11190 11250 



XS - 
10240 11110 x11250 



XT' - . . • • 

11400 11410 11410 11450- 11450 11450 ' 



Y • 

O 10O9O 10100 lOlOO 10110 10170 
ERjCl.lOSO 11110 11220 11250 



10180 10190 10200 10350 10420 10430 104^^0 10450 



YA — ^ 

10100 10190 10200 10240 11190 
YB • 

11400 11440 11440 11450 11450 y 
. ^ 10100 10170 10180 10240 11110 11,190 11250 
10240 Who '11250 

YT • ' , 

11400 11430 11430 11450 11450 11450 

z 

10650 10670 10710 10730 10880 10950 
Z$ 

10060 10070 10970 10980 11090 11095 



